home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / meltdown.lha / rip.s < prev   
Encoding:
Text File  |  1991-02-20  |  2.1 KB  |  79 lines
  1.  
  2. Blitchar
  3.     Tst.l    ScrollCnt
  4.     Bne    ScrollOn
  5.     Moveq    #0,D0
  6.     Move.l    ScrollPtr,A0
  7.     Move.b    (a0)+,D0
  8.     Cmp.b    #-1,D0
  9.     Bne.s    Scrollend
  10.     Move.l    #Scroll,A0
  11.     Move.b    (a0)+,d0
  12. Scrollend
  13.     Move.l    A0,ScrollPtr
  14.     Sub.b    #32,D0
  15.     Lea    CharTab,A0
  16.     Add.b    d0,d0
  17.     Move.w    (a0,d0),d0
  18.     Add.l    #Font,D0
  19.     Blitwait
  20.     Move.l    d0,Bltapth(a5)
  21.     Move.l    #$70000+(52*80),Bltdpth(A5)
  22.     Move.l    #-1,Bltafwm(a5)
  23.     Move.w    #36,BltaMOD(A5)            
  24.     Move.w    #46,BltdMOD(A5)
  25.     Move.l    #$09f00000,Bltcon0(a5)
  26.     Move.w    #80*64+3,Bltsize(a5)
  27.     Move.l    #48,ScrollCnt
  28. ScrollOn        
  29.     Sub.l    #1,ScrollCnt
  30.     Move.l    #-1,Bltafwm(a5)
  31.     Move.w    #0,BltaMOD(A5)            
  32.     Move.w    #0,BltdMOD(A5)
  33.     Move.l    #$f9f00000,Bltcon0(a5)
  34.     Move.l    #$70002,Bltapth(A5)
  35.     Move.l    #$70000,Bltdpth(A5)
  36.     Move.w    #170*64+26,Bltsize(a5)
  37.     
  38.     Move.w    #6,Bltamod(a5)
  39.     Move.w    #6,Bltdmod(a5)
  40.     Move.l    #$09f00000,Bltcon0(a5)
  41.     Move.l    #$7003a,Bltapth(A5)
  42.     Move.l    #$70006,Bltdpth(A5)
  43.     Move.w    #170*64+23,Bltsize(a5)
  44.     Rts
  45.     
  46. *****************************************************************************
  47.  
  48. ScrollPtr
  49.     Dc.l    Scroll
  50. Scroll
  51.     Dc.b    "MELT DOWN ",255
  52.  Even
  53. ScrollCnt
  54.     Dc.l    0
  55.     
  56. *****************************************************************************
  57.  
  58. Chartab
  59.     Dc.w    06+(3402*5),06+(3402*0),12+(3402*0),18+(3402*0) ;....    
  60.     Dc.w    24+(3402*0),30+(3402*0),36+(3402*0)        ;...
  61.     Dc.w    00+(3402*1),18+(3402*5),24+(3402*5),18+(3402*1)    ;`()*
  62.     Dc.w    24+(3402*1),30+(3402*1),06+(3402*5)        ;+,-
  63.     Dc.w    12+(3402*5),30+(3402*5),30+(3402*3),36+(3402*3)    ;./01
  64.     Dc.w    00+(3402*4),06+(3402*4),12+(3402*4)        ;234
  65.     Dc.w    18+(3402*4),24+(3402*4),30+(3402*4),36+(3402*4)    ;5678
  66.     Dc.w    00+(3402*5),36+(3402*5),36+(3402*3)        ;9:;
  67.     Dc.w    00+(3402*4),06+(3402*4),12+(3402*4),18+(3402*4)    ;<=>?
  68.     Dc.w    24+(3402*4),00+(3402*0),06+(3402*0)        ;@AB
  69.     Dc.w    12+(3402*0),18+(3402*0),24+(3402*0),30+(3402*0)    ;CDEF
  70.     Dc.w    36+(3402*0),00+(3402*1),06+(3402*1)        ;GHI
  71.     Dc.w    12+(3402*1),18+(3402*1),24+(3402*1),30+(3402*1)    ;JKLM
  72.     Dc.w    36+(3402*1),00+(3402*2),06+(3402*2)        ;NOP
  73.     Dc.w    12+(3402*2),18+(3402*2),24+(3402*2),30+(3402*2)    ;QRST
  74.     Dc.w    36+(3402*2),00+(3402*3),06+(3402*3)        ;UVW
  75.     Dc.w    12+(3402*3),18+(3402*3),24+(3402*3),00+(3402*0)    ;XYZ[
  76.     Dc.w    00+(3402*0),00+(3402*0),00+(3402*0)        ;\]
  77. font:
  78.     incbin gfx/bigfont.bm
  79.